home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 48 / MOBICLIC 48.ISO / pc / DATA / COMMUNS / MENUBD.DIR / 00030_Script_GESTION_PISTE_NOTE < prev    next >
Text File  |  2002-07-23  |  689b  |  25 lines
  1. global gpisteNote_Silence, nivson, gflag_Silence
  2. property pdizsprite, pdizspriteNo,pdizguyName
  3. ----------------------------------
  4. on beginsprite me
  5.   pdizspriteNo = me.spriteNum
  6.   pdizsprite = sprite(pdizspriteNo)
  7.   pdizguyName = pdizsprite.member.name
  8.   gpisteNote_Silence = pdizspriteNo
  9. end
  10. ----------------------------------- 
  11. on mouseDown
  12.  nivson[1] = -nivson[1]
  13.   case(nivson[1] < 0) of
  14.     1:
  15.       gflag_Silence = -1
  16.       sprite(gpisteNote_Silence).member = "NOTE_0"
  17.       sound(1).volume = 0
  18.     otherwise:
  19.       gflag_Silence = 1
  20.       sprite(gpisteNote_Silence).member = "NOTE"
  21.       sound(1).volume = nivson[1]
  22.   end case
  23.   updateStage
  24. end
  25. -------------